home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / datatypes / voc / source / classbase.i < prev    next >
Text File  |  1978-06-29  |  1KB  |  58 lines
  1. ******************************************************************************
  2. *
  3. * VOC Datatype, based on the sourcecode found in OS3.1 Native Developer Kit
  4. *
  5. * Written by Christian Buchner
  6. *
  7. ******************************************************************************
  8. * classbase.i
  9.  
  10.     IFND CLASSBASE_I
  11. CLASSBASE_I SET    1
  12.  
  13. ;-----------------------------------------------------------------------
  14.  
  15.     INCLUDE "exec/types.i"
  16.     INCLUDE "exec/libraries.i"
  17.     INCLUDE "exec/lists.i"
  18.     INCLUDE "exec/semaphores.i"
  19.     INCLUDE    "utility/tagitem.i"
  20.  
  21. ;-----------------------------------------------------------------------
  22.  
  23.    STRUCTURE ClassBase,LIB_SIZE
  24.     ULONG    cb_SysBase
  25.     ULONG    cb_DOSBase
  26.     ULONG    cb_IntuitionBase
  27.     ULONG    cb_UtilityBase
  28.     ULONG    cb_DataTypesBase
  29.     ULONG    cb_SuperClassBase
  30.     ULONG    cb_SegList
  31.     STRUCT    cb_Lock,SS_SIZE
  32.     ULONG    cb_Class
  33.    LABEL ClassBase_SIZEOF
  34.  
  35. ;-----------------------------------------------------------------------
  36.  
  37.     LIBINIT
  38.  
  39.     LIBDEF    _LVODispatch
  40.  
  41. ;---------------------------------------------------------------------------
  42.  
  43. CALL MACRO <Function_Name>
  44.     xref _LVO\1
  45.      jsr _LVO\1(A6)
  46.      ENDM
  47.  
  48. ;---------------------------------------------------------------------------
  49.  
  50. GO   MACRO <Function_Name>
  51.     xref _LVO\1
  52.      jmp _LVO\1(A6)
  53.      ENDM
  54.  
  55. ;---------------------------------------------------------------------------
  56.  
  57.     ENDC    ; CLASSBASE_I
  58.